---
title: "RESULTADO DIÁRIO MKT"
output: 
  flexdashboard::flex_dashboard:
    orientation: rows
    #vertical_layout: fill
    vertical_layout: scroll
    logo: pp.png
    social: [ "twitter", "facebook","google +", "linkedin", "pinterest" ]
    source_code: embed
    #runtime: shiny
---

```{r setup, include=FALSE}
#devtools::install_github("jeromefroe/circlepackeR")
#library(devtools)
library(flexdashboard)
library(readxl)
library(tidyr)
library(plotly)
library(ggmap)
library(RColorBrewer)
library(treemap)
library(hrbrthemes)
library(circlepackeR)
library(data.tree)
library(babynames)
library(viridis)
library(dplyr)
library(lubridate)
library(DT)
#library(d3treeR)
library(chorddiag)
library(circlize)
library(streamgraph)
library(wordcloud2)
library(wordcloud)

#função criada para computar quantos dias tem o mês
numberOfDays <- function(date) {
    m <- format(date, format="%m")

    while (format(date, format="%m") == m) {
        date <- date + 1
    }

    return(as.integer(format(date - 1, format="%d")))
}

produtos <- read_excel("C:/Users/pedro.silva/OneDrive - Sicoob/PAUTA_MARKETING/PRODUTOS/PROJETOS_PRODUTOS.xlsm", sheet = 1)
institucional <- read_excel("C:/Users/pedro.silva/OneDrive - Sicoob/PAUTA_MARKETING/INSTITUCIONAL/PROJETOS_INSTITUCIONAL.xlsm", sheet = 1)


maindata=data.frame(rbind(produtos, institucional))
names(maindata)=names(produtos)
maindata$`DATA DE ENTREGA`=as.Date(maindata$`DATA DE ENTREGA`, origin = "1899-12-30")

maindata=maindata %>% filter(!`DATA DE ENTREGA`% filter(STATUS!="NOVO")

#maindatamensal = maindata %>% filter(`DATA DE ENTREGA`>=as.Date(cut(Sys.Date(), "month")) & `DATA DE ENTREGA`<=as.Date(cut(Sys.Date(), "day"))) %>% filter(STATUS!="NOVO")

maindatamensal = maindata %>% filter(`DATA DE ENTREGA`>=as.Date("2020-03-23") & `DATA DE ENTREGA`<=as.Date(cut(Sys.Date(), "day"))) %>% filter(STATUS!="NOVO")


#produtos = maindatamensal %>% filter(NUCLEO=="PRODUTOS") %>% filter(`DATA DE ENTREGA`>=as.Date(cut(Sys.Date(), "month")) & `DATA DE ENTREGA`<=as.Date(cut(Sys.Date(), "day")))

produtos = maindata %>% filter(NUCLEO=="PRODUTOS") %>% filter(`DATA DE ENTREGA`>=as.Date("2020-03-23") & `DATA DE ENTREGA`<=as.Date(cut(Sys.Date(), "day")))

#institucional = maindatamensal %>% filter(NUCLEO=="INSTITUCIONAL") %>% filter(`DATA DE ENTREGA`>=as.Date(cut(Sys.Date(), "month")) & `DATA DE ENTREGA`<=as.Date(cut(Sys.Date(), "day")))

institucional = maindata %>% filter(NUCLEO=="INSTITUCIONAL") %>% filter(`DATA DE ENTREGA`>=as.Date("2020-03-23") & `DATA DE ENTREGA`<=as.Date(cut(Sys.Date(), "day")))


######################################    ARQUITETO
arquiteto <- read_excel("C:/Users/pedro.silva/OneDrive - Sicoob/PAUTA_MARKETING/ARQUITETO/PROJETOS_ARQUITETO.xlsm", sheet = 1)
arquiteto$`DATA DE ENTREGA`=as.Date(arquiteto$`DATA DE ENTREGA`, origin = "1899-12-30")

#arquitetodiario=arquiteto %>% filter(`DATA DE ENTREGA`>=as.Date(cut(Sys.Date(), "month")) & `DATA DE ENTREGA`<=as.Date(cut(Sys.Date(), "day")))

arquitetodiario=arquiteto %>% filter(`DATA DE ENTREGA`>=as.Date("2020-03-23") & `DATA DE ENTREGA`<=as.Date(cut(Sys.Date(), "day")))


######################################    ASCOM
revistas_relatorios <- read_excel("C:/Users/pedro.silva/OneDrive - Sicoob/PAUTA_MARKETING/ASCOM/01.REVISTAS_RELATORIOS.xlsm", sheet = 1)
revistas_relatorios$`DATA DE ENTREGA`=as.Date(revistas_relatorios$`DATA DE ENTREGA`, origin = "1899-12-30")

revistas_relatorios_total=revistas_relatorios %>% filter(`DATA DE ENTREGA`>=as.Date(cut(Sys.Date(), "year")))

#revistas_relatorios=revistas_relatorios %>% filter(`DATA DE ENTREGA`>=as.Date(cut(Sys.Date(), "month")) & `DATA DE ENTREGA`<=as.Date(cut(Sys.Date(), "day")))

#revistas_relatorios=revistas_relatorios %>% filter(`DATA DE ENTREGA`>=as.Date("2020-03-23") & `DATA DE ENTREGA`<=as.Date(cut(Sys.Date(), "day")))

#atendimento_a_imprensa <- read_excel("C:/Users/pedro.silva/OneDrive - Sicoob/PAUTA_MARKETING/ASCOM/02.atendimento_a_imprensa.xlsx", sheet = 2) %>% filter(`DATA DO CONTATO`>=as.Date(cut(Sys.Date(), "month")) & `DATA DO CONTATO`<=as.Date(cut(Sys.Date(), "day")))

atendimento_a_imprensa <- read_excel("C:/Users/pedro.silva/OneDrive - Sicoob/PAUTA_MARKETING/ASCOM/02.atendimento_a_imprensa.xlsx", sheet = 2) %>% filter(`DATA DO CONTATO`>=as.Date("2020-03-01") & `DATA DO CONTATO`<=as.Date(cut(Sys.Date(), "day")))

glpi_ascom<- read_excel("C:/Users/pedro.silva/OneDrive - Sicoob/PAUTA_MARKETING/ASCOM/04.ASCOM_GLPI.xlsm", sheet=1)
glpi_ascom$`DATA DE ENTREGA`=as.Date(glpi_ascom$`DATA DE ENTREGA`, origin = "1899-12-30")


ascom_geral=merge(glpi_ascom, revistas_relatorios, all=T) %>% merge(atendimento_a_imprensa, all=T)

revistas_relatorios=revistas_relatorios %>% filter(`DATA DE ENTREGA`>=as.Date("2020-03-23") & `DATA DE ENTREGA`<=as.Date(cut(Sys.Date(), "day")))

#################  Audio visual
#################
audiovisual=read_excel("C:/Users/pedro.silva/OneDrive - Sicoob/PAUTA_MARKETING/SUPORTE DE QUALIDADE/SAULO - AUDIO VISUAL/AUDIO_VISUAL.xlsm", sheet = 1)
audiovisual$`DATA DE ENTREGA`=as.Date(audiovisual$`DATA DE ENTREGA`, origin = "1899-12-30")

################  projetos
################
midias_off <- read_excel("C:/Users/pedro.silva/OneDrive - Sicoob/PAUTA_MARKETING/SUPORTE DE QUALIDADE/GABI/GABI_GLPI.xlsm", sheet = 1)
midias_off$`DATA DE ENTREGA`=as.Date(midias_off$`DATA DE ENTREGA`, origin = "1899-12-30")


################ midias digitais
################
digitais <- read_excel("C:/Users/pedro.silva/OneDrive - Sicoob/PAUTA_MARKETING/SUPORTE DE QUALIDADE/MKT  DIGITAL/PROJETOS_MKT_DIGITAL.xlsm", sheet=1)
digitais$`DATA DE ENTREGA`=as.Date(digitais$`DATA DE ENTREGA`, origin = "1899-12-30")

################ Redação
################
redacao <- read_excel("C:/Users/pedro.silva/OneDrive - Sicoob/PAUTA_MARKETING/SUPORTE DE QUALIDADE/REDAÇÃO/01.REDATOR.xlsm", sheet=1)
redacao$`DATA DE ENTREGA`=as.Date(redacao$`DATA DE ENTREGA`, origin = "1899-12-30")

ascom_geral=merge(ascom_geral, redacao, all=T)

ascom_pos23=ascom_geral %>% filter(`DATA DE ENTREGA`>as.Date("2020-03-22"))

```

Produtos
=====================================

Row
-------------------------------------

### Produção por colaborador

```{r}
proporcaoprodutos=data.frame(table(produtos$`TÉCNICO RESPONSÁVEL`))
names(proporcaoprodutos)=c("Funcionário", "Quantidade")
# Create Data
data <- data.frame(
  group=proporcaoprodutos$Funcionário,
  value=proporcaoprodutos$Quantidade
)


plot_ly(data, labels = ~group, values = ~value, type = 'pie') %>%
  layout(xaxis = list(showgrid = FALSE, zeroline = FALSE, showticklabels = FALSE),
         yaxis = list(showgrid = FALSE, zeroline = FALSE, showticklabels = FALSE))


```

### Serviços prestados

```{r}
proporcaoprodutos=data.frame(table(produtos$CATEGORIA))
names(proporcaoprodutos)=c("Funcionário", "Quantidade")
# Create Data
data <- data.frame(
  group=proporcaoprodutos$Funcionário,
  value=proporcaoprodutos$Quantidade
)


plot_ly(data, labels = ~group, values = ~value) %>%
  add_pie(hole = 0.6) %>%
  layout(xaxis = list(showgrid = FALSE, zeroline = FALSE, showticklabels = FALSE),
         yaxis = list(showgrid = FALSE, zeroline = FALSE, showticklabels = FALSE))


```

### As 10 cooperaivas que pediram no mês

```{r}
demandas_cooperativas=data.frame(table(produtos$`COOPERATIVA SOLICITANTE`))
names(demandas_cooperativas)=c("Cooperativa", "Frequência")
demandas_cooperativas=demandas_cooperativas %>% arrange(Frequência)
n=demandas_cooperativas %>% nrow()
if(n>10){
demandas_cooperativas=demandas_cooperativas %>% slice((n-10):n)
}

p <- plot_ly(demandas_cooperativas, x = ~reorder(Cooperativa, -Frequência), y = ~Frequência, type = 'bar', name = 'SF Zoo') %>%
    layout(barmode = 'group', xaxis = list(title = "Cooperativas", range = c(-0.5,9.5)))

p

```

Row
----------------------------------

### Produção diária de peças
```{r}
demandas_mes=produtos


teste_pecas=data.frame(table(demandas_mes$`TÉCNICO RESPONSÁVEL`, demandas_mes$`DATA DE ENTREGA`))
names(teste_pecas)=c("name", "year", "n")
teste_pecas$year=as.Date(teste_pecas$year)

# Plot
p <- teste_pecas %>% 
  ggplot( aes(x=year, y=n, fill=name, text=n)) +
  geom_area( )+
  scale_fill_viridis(discrete = TRUE)+
  #theme(legend.position="none") +
  theme_ipsum()+
  scale_x_date(date_labels = "%e %B")
  #theme(legend.position="none")

# Turn it interactive
p <- ggplotly(p, tooltip="text") %>% layout(xaxis = list(title="Dia do mês"), yaxis = list(title="Quantidade de peças"))
p
```

### Média de peças diárias produzidas por colaborador antes e depois do Home-Office

```{r}
base=data.frame(table((maindata %>% filter(NUCLEO=="PRODUTOS"))$`TÉCNICO RESPONSÁVEL`, (maindata %>% filter(NUCLEO=="PRODUTOS"))$`DATA DE ENTREGA`))
base$Var2=as.Date(base$Var2)
base=base %>% filter(Var1!="Matheus") %>% filter(Var1!="Saulo") %>% filter(Var1!="João")

colaborador=levels(factor(base$Var1))
Arley=base %>% filter(Var1=="Arley") %>% filter(Var2% filter(Var1=="Tatau") %>% filter(Var2% filter(Var1=="Arley") %>% filter(Var2>as.Date("2020-03-21"))
Arleyd=sum(Arleyd$Freq)/as.numeric(as.Date(cut(Sys.Date(), "day"))-as.Date("2020-03-23"))
#Arleyd=3.571429

Tataud=base %>% filter(Var1=="Tatau") %>% filter(Var2>as.Date("2020-03-21"))
Tataud=sum(Tataud$Freq)/as.numeric(as.Date(cut(Sys.Date(), "day"))-as.Date("2020-03-23"))

Depois_do_Home_office=c(round(Arleyd,2), round(Tataud,2))

data=data.frame(colaborador, Antes_do_Home_office, Depois_do_Home_office)


fig <- plot_ly(data, x = ~colaborador, y = ~Antes_do_Home_office, type = 'bar', name = 'Antes Home-Office')
fig <- fig %>% add_trace(y = ~Depois_do_Home_office, name = 'Depois Home-Office')
fig <- fig %>% layout(yaxis = list(title = 'Count'), barmode = 'group')

write.csv2(data, "produtividade_produtos.csv")
fig
```

Institucional
=====================================

Row
----------------------------------

### Produção por colaborador

```{r}
proporcaoinstitucional=data.frame(table(institucional$`TÉCNICO RESPONSÁVEL`))
names(proporcaoinstitucional)=c("Funcionário", "Quantidade")
# Create Data
data <- data.frame(
  group=proporcaoinstitucional$Funcionário,
  value=proporcaoinstitucional$Quantidade
)


plot_ly(data, labels = ~group, values = ~value, type = 'pie') %>%
  layout(xaxis = list(showgrid = FALSE, zeroline = FALSE, showticklabels = FALSE),
         yaxis = list(showgrid = FALSE, zeroline = FALSE, showticklabels = FALSE))


```

### Serviços prestados

```{r}
proporcaoprodutos=data.frame(table(institucional$CATEGORIA))
names(proporcaoprodutos)=c("Funcionário", "Quantidade")
# Create Data
data <- data.frame(
  group=proporcaoprodutos$Funcionário,
  value=proporcaoprodutos$Quantidade
)


plot_ly(data, labels = ~group, values = ~value) %>%
  add_pie(hole = 0.6) %>%
  layout(xaxis = list(showgrid = FALSE, zeroline = FALSE, showticklabels = FALSE),
         yaxis = list(showgrid = FALSE, zeroline = FALSE, showticklabels = FALSE))


```

### As 10 cooperaivas que mais pediram no mês

```{r}
demandas_cooperativas=data.frame(table(institucional$`COOPERATIVA SOLICITANTE`))
names(demandas_cooperativas)=c("Cooperativa", "Frequência")
demandas_cooperativas=demandas_cooperativas %>% arrange(Frequência)
n=demandas_cooperativas %>% nrow()
if(n>10){
demandas_cooperativas=demandas_cooperativas %>% slice((n-10):n)
}

p <- plot_ly(demandas_cooperativas, x = ~reorder(Cooperativa, -Frequência), y = ~Frequência, type = 'bar', name = 'SF Zoo') %>%
    layout(barmode = 'group', xaxis = list(title = "Cooperativas", range = c(-0.5,9.5)))

p

```

Row
----------------------------------

### Produção diária de peças
```{r}
demandas_mes=institucional

teste_pecas=data.frame(table(demandas_mes$`TÉCNICO RESPONSÁVEL`, demandas_mes$`DATA DE ENTREGA`))
names(teste_pecas)=c("Colaborador", "year", "n")
teste_pecas$year=as.Date(teste_pecas$year)

# Plot
p <- teste_pecas %>% 
  ggplot( aes(x=year, y=n, fill=Colaborador, text=n)) +
  geom_area( )+
  scale_fill_viridis(discrete = TRUE)+
  #theme(legend.position="none") +
  theme_ipsum()+
  scale_x_date(date_labels = "%e %B")
  #theme(legend.position="none")

# Turn it interactive
p <- ggplotly(p, tooltip="text") %>% layout(xaxis = list(title="Dia do mês"), yaxis = list(title="Quantidade de peças"))
p
```

### Média de peças diárias produzidas por colaborador antes e depois do Home-Office

```{r}
base=data.frame(table((maindata %>% filter(NUCLEO=="INSTITUCIONAL"))$`TÉCNICO RESPONSÁVEL`, (maindata %>% filter(NUCLEO=="INSTITUCIONAL"))$`DATA DE ENTREGA`))
base$Var2=as.Date(base$Var2)
base=base %>% filter(Var1!="Gabriela") %>% filter(Var1!="Kátia") %>% filter(Var1!="Ana Luiza")

colaborador=levels(factor(base$Var1))
Ana_clara=base %>% filter(Var1=="Ana Clara") %>% filter(Var2% filter(Var1=="Kenny") %>% filter(Var2% filter(Var1=="Samuel") %>% filter(Var2% filter(Var1=="Ana Clara") %>% filter(Var2>as.Date("2020-03-21"))
Ana_clarad=sum(Ana_clarad$Freq)/as.numeric(as.Date(cut(Sys.Date(), "day"))-as.Date("2020-03-23"))

Kennyd=base %>% filter(Var1=="Kenny") %>% filter(Var2>as.Date("2020-03-21"))
Kennyd=sum(Kennyd$Freq)/as.numeric(as.Date(cut(Sys.Date(), "day"))-as.Date("2020-03-23"))

Samueld=base %>% filter(Var1=="Samuel") %>% filter(Var2>as.Date("2020-03-21"))
Samueld=sum(Samueld$Freq)/as.numeric(as.Date(cut(Sys.Date(), "day"))-as.Date("2020-03-23"))

Depois_do_Home_office=c(round(Ana_clarad,2),round(Kennyd,2), round(Samueld,2))

data=data.frame(colaborador, Antes_do_Home_office, Depois_do_Home_office)


fig <- plot_ly(data, x = ~colaborador, y = ~Antes_do_Home_office, type = 'bar', name = 'Antes Home-Office')
fig <- fig %>% add_trace(y = ~Depois_do_Home_office, name = 'Depois Home-Office')
fig <- fig %>% layout(yaxis = list(title = 'Count'), barmode = 'group')

write.csv2(data, "produtividade_institucional.csv")

fig
```

ASCOM
=====================================

Row
-------------------------------------

### Serviços prestados

```{r}
proporcaoprodutos=data.frame(table(ascom_pos23$`TÉCNICO RESPONSÁVEL`))
names(proporcaoprodutos)=c("Funcionário", "Quantidade")
# Create Data
data <- data.frame(
  group=proporcaoprodutos$Funcionário,
  value=proporcaoprodutos$Quantidade
)


plot_ly(data, labels = ~group, values = ~value, type = 'pie') %>%
  layout(xaxis = list(showgrid = FALSE, zeroline = FALSE, showticklabels = FALSE),
         yaxis = list(showgrid = FALSE, zeroline = FALSE, showticklabels = FALSE))


```

### Assuntos abordados no atendimento à imprensa

```{r}
a=data.frame(rbind(data.frame(table(atendimento_a_imprensa$`ASSUNTO REDUZIDO`)), data.frame(10*table(atendimento_a_imprensa$`ASSUNTO REDUZIDO`)), data.frame(5*table(atendimento_a_imprensa$`ASSUNTO REDUZIDO`)), data.frame(20*table(atendimento_a_imprensa$`ASSUNTO REDUZIDO`))))
#a=data.frame(table(atendimento_a_imprensa$`ASSUNTO REDUZIDO`))

wordcloud(words = a$Var1, freq = a$Freq, min.freq = 1, max.words=200, random.order=FALSE, rot.per=0.35, colors=brewer.pal(8, "Dark2"))

#wordcloud2(a, size=1.6, color='random-dark')
#wordcloud2(a, size = 0.7, shape = 'star')
```

### Proporção dos serviços realizados por etapas (Revistas e Relatórios)

```{r}
proporcaoprodutos=data.frame(table(revistas_relatorios$ETAPA))
names(proporcaoprodutos)=c("Funcionário", "Quantidade")
# Create Data
data <- data.frame(
  group=proporcaoprodutos$Funcionário,
  value=proporcaoprodutos$Quantidade
)


plot_ly(data, labels = ~group, values = ~value) %>%
  add_pie(hole = 0.6) %>%
  layout(xaxis = list(showgrid = FALSE, zeroline = FALSE, showticklabels = FALSE),
         yaxis = list(showgrid = FALSE, zeroline = FALSE, showticklabels = FALSE))


```

Row
---

### Serviços executados diariamente

```{r}
unificado=data.frame(table(ascom_geral$`TÉCNICO RESPONSÁVEL`, ascom_geral$`DATA DE ENTREGA`))

teste_pecas= unificado
names(teste_pecas)=c("Colaborador", "year", "n")
teste_pecas$year=as.Date(teste_pecas$year)
teste_pecas=teste_pecas %>% filter(year>=as.Date("2020-03-23"))

# Plot
p <- teste_pecas %>% 
  ggplot( aes(x=year, y=n, fill=Colaborador, text=n)) +
  geom_area( )+
  scale_fill_viridis(discrete = TRUE)+
  #theme(legend.position="none") +
  theme_ipsum()+
  #theme(legend.position="none")
  scale_x_date(date_labels = "%e %B")

# Turn it interactive
p <- ggplotly(p, tooltip="text") %>% layout(xaxis = list(title="Dia do mês"), yaxis = list(title="Quantidade de serviços"))
p
```

### Média de serviços realizados diarimente por colaborador antes e depois do Home-Office

```{r}
#revistas_relatorios
#atendimento_a_imprensa
#glpi_ascom
#redacao
base=data.frame(table(ascom_geral$`TÉCNICO RESPONSÁVEL`, ascom_geral$`DATA DE ENTREGA`))
base$Var2=as.Date(base$Var2)

colaborador=levels(factor(base$Var1))
colaborador=colaborador[-c(1,3,5)]

marina=base %>% filter(Var1=="Marina") %>% filter(Var2% filter(Var1=="Brenda") %>% filter(Var2% filter(Var1=="Marina") %>% filter(Var2>as.Date("2020-03-14"))
marinad=sum(marinad$Freq)/as.numeric(as.Date(cut(Sys.Date(), "day"))-as.Date("2020-03-15"))

brendad=base %>% filter(Var1=="Brenda") %>% filter(Var2>as.Date("2020-03-14"))
brendad=sum(brendad$Freq)/as.numeric(as.Date(cut(Sys.Date(), "day"))-as.Date("2020-03-15"))

Depois_do_Home_office=c(round(brendad,2), round(marinad,2))

data=data.frame(colaborador, Antes_do_Home_office, Depois_do_Home_office)


fig <- plot_ly(data, x = ~colaborador, y = ~Antes_do_Home_office, type = 'bar', name = 'Antes Home-Office')
fig <- fig %>% add_trace(y = ~Depois_do_Home_office, name = 'Depois Home-Office')
fig <- fig %>% layout(yaxis = list(title = 'Count'), barmode = 'group')

write.csv2(data, "produtividade_ASCOM.csv")

fig
```

Suporte de Qualidade
=====================================

Row
---

### Audio Visual - Serviços prestados

```{r}
proporcaoprodutos=data.frame(table(audiovisual$CATEGORIA))
names(proporcaoprodutos)=c("Funcionário", "Quantidade")
# Create Data
data <- data.frame(
  group=proporcaoprodutos$Funcionário,
  value=proporcaoprodutos$Quantidade
)


plot_ly(data, labels = ~group, values = ~value) %>%
  add_pie(hole = 0.6) %>%
  layout(xaxis = list(showgrid = FALSE, zeroline = FALSE, showticklabels = FALSE),
         yaxis = list(showgrid = FALSE, zeroline = FALSE, showticklabels = FALSE))


```

### Projetos - Serviços prestados

```{r}
proporcaoprodutos=data.frame(table(midias_off$CATEGORIA))
names(proporcaoprodutos)=c("Funcionário", "Quantidade")
# Create Data
data <- data.frame(
  group=proporcaoprodutos$Funcionário,
  value=proporcaoprodutos$Quantidade
)


plot_ly(data, labels = ~group, values = ~value) %>%
  add_pie(hole = 0.6) %>%
  layout(xaxis = list(showgrid = FALSE, zeroline = FALSE, showticklabels = FALSE),
         yaxis = list(showgrid = FALSE, zeroline = FALSE, showticklabels = FALSE))


```

### Arquitetura - Serviços prestados

```{r}
proporcaoprodutos=data.frame(table(arquitetodiario$CATEGORIA))
names(proporcaoprodutos)=c("Funcionário", "Quantidade")
# Create Data
data <- data.frame(
  group=proporcaoprodutos$Funcionário,
  value=proporcaoprodutos$Quantidade
)


plot_ly(data, labels = ~group, values = ~value) %>%
  add_pie(hole = 0.6) %>%
  layout(xaxis = list(showgrid = FALSE, zeroline = FALSE, showticklabels = FALSE),
         yaxis = list(showgrid = FALSE, zeroline = FALSE, showticklabels = FALSE))


```

### Mídias Digitais - Serviços prestados

```{r}
proporcaoprodutos=data.frame(table(digitais$CATEGORIA))
names(proporcaoprodutos)=c("Funcionário", "Quantidade")
# Create Data
data <- data.frame(
  group=proporcaoprodutos$Funcionário,
  value=proporcaoprodutos$Quantidade
)


plot_ly(data, labels = ~group, values = ~value) %>%
  add_pie(hole = 0.6) %>%
  layout(xaxis = list(showgrid = FALSE, zeroline = FALSE, showticklabels = FALSE),
         yaxis = list(showgrid = FALSE, zeroline = FALSE, showticklabels = FALSE))


```



Row
---
### Produção diária de peças
```{r}
julia=data.frame(arquiteto$`TÉCNICO RESPONSÁVEL`, arquiteto$`DATA DE ENTREGA`)
names(julia)=c("TÉCNICO RESPONSÁVEL", "DATA DE ENTREGA")
saulo=data.frame(audiovisual$`TÉCNICO RESPONSÁVEL`, audiovisual$`DATA DE ENTREGA`)
names(saulo)=c("TÉCNICO RESPONSÁVEL", "DATA DE ENTREGA")
gabi=data.frame(midias_off$`TÉCNICO RESPONSÁVEL`, midias_off$`DATA DE ENTREGA`)
names(gabi)=c("TÉCNICO RESPONSÁVEL", "DATA DE ENTREGA")

base=rbind(julia, saulo, gabi)
names(base)=c("TÉCNICO RESPONSÁVEL", "DATA DE ENTREGA")
base=data.frame(table(base$`TÉCNICO RESPONSÁVEL`, base$`DATA DE ENTREGA`))
base$Var2=as.Date(base$Var2)
base=base %>% filter(Var2>=as.Date("2020-03-23"))

teste_pecas=base
names(teste_pecas)=c("Colaborador", "year", "n")
teste_pecas$year=as.Date(teste_pecas$year)

# Plot
p <- teste_pecas %>% 
  ggplot( aes(x=year, y=n, fill=Colaborador, text=n)) +
  geom_area( )+
  scale_fill_viridis(discrete = TRUE)+
  #theme(legend.position="none") +
  theme_ipsum()+
  scale_x_date(date_labels = "%e %B")
  #theme(legend.position="none")

# Turn it interactive
p <- ggplotly(p, tooltip="text") %>% layout(xaxis = list(title="Dia do mês"), yaxis = list(title="Quantidade de peças"))
p
```

### Média de peças diárias produzidas por colaborador antes e depois do Home-Office

```{r}
julia=data.frame(table(arquiteto$`TÉCNICO RESPONSÁVEL`, arquiteto$`DATA DE ENTREGA`))
Saulo=data.frame(table(audiovisual$`TÉCNICO RESPONSÁVEL`, audiovisual$`DATA DE ENTREGA`))
Gabi=data.frame(table(midias_off$`TÉCNICO RESPONSÁVEL`, midias_off$`DATA DE ENTREGA`))

base=rbind(julia, Saulo, Gabi)
names(base)=names(julia)
base$Var2=as.Date(base$Var2)

colaborador=levels(factor(base$Var1))

Gabi=base %>% filter(Var1=="Gabi") %>% filter(Var2% filter(Var1=="Saulo") %>% filter(Var2% filter(Var1=="Júlia") %>% filter(Var2% filter(Var1=="MÔNADA") %>% filter(Var2% filter(Var1=="Gabi") %>% filter(Var2>as.Date("2020-03-21"))
Gabid=sum(Gabid$Freq)/as.numeric(as.Date(cut(Sys.Date(), "day"))-as.Date("2020-03-23"))

Saulod=base %>% filter(Var1=="Saulo") %>% filter(Var2>as.Date("2020-03-21"))
Saulod=sum(Saulod$Freq)/as.numeric(as.Date(cut(Sys.Date(), "day"))-as.Date("2020-03-23"))

Juliad=base %>% filter(Var1=="Júlia") %>% filter(Var2>as.Date("2020-03-21"))
Juliad=sum(Juliad$Freq)/as.numeric(as.Date(cut(Sys.Date(), "day"))-as.Date("2020-03-23"))

#monadad=base %>% filter(Var1=="MÔNADA") %>% filter(Var2>as.Date("2020-03-21"))
#monadad=sum(monadad$Freq)/as.numeric(as.Date(cut(Sys.Date(), "day"))-as.Date("2020-03-23"))

Depois_do_Home_office=c(round(Juliad,2),round(Saulod,2), round(Gabid,2))

data=data.frame(colaborador, Antes_do_Home_office, Depois_do_Home_office)


fig <- plot_ly(data, x = ~colaborador, y = ~Antes_do_Home_office, type = 'bar', name = 'Antes Home-Office')
fig <- fig %>% add_trace(y = ~Depois_do_Home_office, name = 'Depois Home-Office')
fig <- fig %>% layout(yaxis = list(title = 'Count'), barmode = 'group')

write.csv2(data, "produtividade_qualidade.csv")

fig
```